home *** CD-ROM | disk | FTP | other *** search
/ Click Press Kit / Click Press Kit.iso / pc / main.dxr / Internal_98_FlashpaperCode.ls < prev    next >
Encoding:
Text File  |  2006-05-31  |  977 b   |  31 lines
  1. property spriteNum
  2. global gNotes, gTracker
  3.  
  4. on beginSprite me
  5.   mSetFlashPaper(spriteNum)
  6.   gTracker.mAddFlashPaperView(sprite(spriteNum).member.name)
  7. end
  8.  
  9. on mSetCorrectly me, vWhichMember
  10.   sprite(spriteNum).member = member(vWhichMember)
  11.   sprite(spriteNum).loc = point(-2000, -2000)
  12.   updateStage()
  13.   if member(vWhichMember).type = #flash then
  14.     sprite(spriteNum).member = member(vWhichMember)
  15.     sprite(spriteNum).originMode = #point
  16.     sprite(spriteNum).originH = sprite(spriteNum).width / 2
  17.     sprite(spriteNum).originV = sprite(spriteNum).height / 2
  18.     sprite(spriteNum).scaleMode = #noScale
  19.   end if
  20.   sprite(spriteNum).loc = gNotes.pFlashPaperLoc
  21. end
  22.  
  23. on mSetCorrectlyEnlarged me, vWhichMember
  24.   if sprite(spriteNum).member.type = #flash then
  25.     sprite(spriteNum).originMode = #point
  26.     sprite(spriteNum).originH = sprite(spriteNum).width / 2
  27.     sprite(spriteNum).originV = sprite(spriteNum).height / 2
  28.     sprite(spriteNum).scaleMode = #noScale
  29.   end if
  30. end
  31.